home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
ms_dos
/
game
/
advgi
/
sample
/
ginmei1.txt
next >
Wrap
Text File
|
1995-02-18
|
18KB
|
736 lines
The Story of Galaxy Trouble Detective
File_1 : A Trouble Detective in New Baker-Street
Incomplete Version / Test Version for ADVGI Version 2.00β
by HAKUGAKUSHI 1995.
本ファイルはコマンドリファレンスに書かれているとおりファイルが消えてしまって作者がやる気を無くしたので未完成です。また舞台設定は変更されるとのことです。途中までのメイキングということで。
1995.2.18 Namy
key
;
;Preset
string THISSOURCENAME "GINMEI_1.TXT"
string red "@c31"
string green "@c32"
string yellow "@c33"
string blue "@c34"
string paple "@c35"
string sky "@c36"
string white "@c37"
flag I 0
;汎用変数
;string STR ""
;汎用文字列変数
Text 0 25
;オートポーズ解除
;
:Opening
text 0 25 0
cls
"%sky%///////////////////////////////////////////////////////////////////////////////
"//////////////////// %white%For ADVenture Game Interpreter ADVGI%sky% ///////////////////
"///////////////////////////////////////////////////////////////////////////////
"%yellow%///////////////////////////////////////////////////////////////////////////////
"/////////////////////%white%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%yellow%//////////////////////
"///////////////////// %green%銀河%red%迷%green%探偵物語%yellow% //////////////////////
"/////////////////////%white%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%yellow%//////////////////////
"///////////////////// %blue%FILE 1%yellow% //////////////////////
"/////////////////////%white%____________________________________%yellow%//////////////////////
"///////////////////// %green%ニューベーカー街の迷探偵%yellow% //////////////////////
"/////////////////////%white%^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%yellow%//////////////////////
"///////////////////////////////////////////////////////////////////////////////
"///////////////////////// %white%Produced by %red%白学志%white% 1995.%yellow% //////////////////////////
"///////////////////////////////////////////////////////////////////////////////
"%sky%//////////////////%red%_________________________________________%sky%////////////////////
"//////////////////%red%| |%sky%////////////////////
"//////////////////%red%|%white% 1. New Game %red%|%sky%////////////////////
"//////////////////%red%|%white% 2. Load Game %red%|%sky%////////////////////
"//////////////////%red%|%white% 3. End %red%|%sky%////////////////////
"//////////////////%red%|%white% 4. Password %red%|%sky%////////////////////
"//////////////////%red%| |%sky%////////////////////
"//////////////////%red%_________________________________________%sky%////////////////////
"///////////////////////////////////////////////////////////////////////////////%white%
select 4 @next @3 EXITP @1
:@@
cls
ゲームをクリアするとパスワードがでます。
そのパスワードを入力するとおまけコーナーに入れます。
FINPUT I パスワード1を入力して下さい :>
IF I = 1 goto @1
goto fault
:@@
FINPUT I パスワード2を入力して下さい :>
IF I = 0 goto @1
goto fault
:@@
FINPUT I パスワード3を入力して下さい :>
IF I = 3 goto @1
goto fault
:@@
FINPUT I パスワード4を入力して下さい :>
IF I = 1 goto @1
goto fault
:@@
FINPUT I パスワード5を入力して下さい :>
IF I = 0 goto @1
goto fault
:@@
正しいパスワードです。
key
goto OMAKE
:fault
パスワードが違います
key
goto Opening
:@@
cls
コマンドラインから次のように入力しなおして下さい
"A> ADVGI %THISSOURCENAME% <savefile>
key
Goto EXITP
:@next
gosub 説明
それじゃ、ゲームを始めますね。
お楽しみ下さい!
[ HIT ANY KEY ];key;cls
;//////////////////////////////////////////
;Main Routine of GINMEI_1.TXT
:Main
;//////////////////////////////////////////
gosub モノローグ
;イントロ。
;フラグ変化無し
;分岐一切なし。
;直接脱出
gosub 街その1
;お遊び。
;アイテムフラグのみ変化あり。
;箱形
;不動産屋へ向かうと脱出
gosub 不動産屋
;お遊び。
;フラグの変化無し。
;箱形
;ベスに会うと脱出
gosub ニューベーカー街221Bその1
;お遊び。
;フラグ類変化無し。
;箱形
;お客が来たら脱出
gosub 依頼
;アーク登場。雑談。
;アークのメイへの好意フラグに変化ありか?
;中形
;事件の話へ
gosub 事件の内容
;マーティン・クライン氏の奇妙な体験の顛末
;フラグ変化無し
;直線、ないし中形(完全系)
;依頼を受ければ脱出
gosub 宇宙船マイクロフト
;宇宙船を手に入れる。
;フラグ変化無し。
;直線、ないしそれに準ずる
;宇宙船を借りると脱出
gosub 宇宙船マイクロフトにて
;事件の反芻。問題1。
;推理点変化。
;箱形?
;惑星ブランドルⅢへ
gosub ブランドルⅢ衛星軌道上にて
;惑星の分析。マイクロフト捕獲される
;未定
;箱?
;ランツ宇宙軍に捕獲される
gosub 脱出騒動
;ランツ軍の戦艦からの脱出
;未定
;おそらく内部でより複雑化する
;脱出し、ブリタニカへ
gosub ニューベーカー街221Bその2
;事件の解明。問題2。
;推理点変化
;樹木状
;
goto EXITP
;
:EXITP
end
;..............................................................................
;
:説明
cls
%paple%メイ%white%「こんにちは!初めまして。
わたし、このゲームで皆さんと一緒にがんばります、メアリーと申します。
メイって呼んで下さいね。
ここでは、ゲームを始める前に、いくつかシステムの説明をしたいと思います。
説明していいですか?
1. 説明を受ける
2. 説明なしでゲームを始める
select 2 @1 endrect
:@@
cls
%paple%メイ%white%「あなたのパソコンはPC98シリーズですか?
1. PC-9801・互換機
2. その他
select 2 @1 @3
:@@
%paple%メイ%white%「98では、ADVGIの起動時にオプション /ST を指定してないとダメなんです
ちゃんと指定していますか?
1. 指定しました
2. 指定していません
select 2 @2 @1
:@@
%paple%メイ%white%「ごめんなさい・・・ちゃんと指定してくれてないと、きちんと動けません・・・
もう一度、次のように指定して起動して下さいね。
" A>ADVGI %THISSOURCENAME% /ST
[ HIT ANY KEY ];key;cls
goto EXITP
:@@
%paple%メイ%white%「それなら、問題ありませんね。
じゃあ、次にゲームの進行のためのヒントをいくつか。
[ HIT ANY KEY ];key;cls
%paple%メイ%white%「このゲームでは、いくつかの場所で%yellow%皆さんに問題が出ます。%white%
この問題に正解すると、”%yellow%推理点%white%”という得点がもらえます。
この推理点が低いと、ゲームを%yellow%クリアできない場合があります。%white%
でも、どれもよーく文章を読んでいたら、簡単に解けるような問題ですし、
だいたい問題の8割が解ければ大丈夫ですから、心配しないで下さいね。
[ HIT ANY KEY ];key;cls
%paple%メイ%white%「それから、あんまり悪いことはしないほうがいいです。
お巡りさんに逮捕されちゃったりしたら、大変ですもの。
[ HIT ANY KEY ];key;cls
%paple%メイ%white%「これで、説明は終わりです。
cls
:endrect
key
return
;///////////////////////////////////////////////////////////
:モノローグ
text 6 16 0
cls
"
@め「はあ・・・
key
"
@め「気がおもいなぁ・・・
key
"
@め「はあ・・・
key
"
@め「・・・・・
wait 40
"
わたしの座っているブランコがぎぃっと寂しげにきしんだ。
わたし、受験生だったの。
それも、そんじょそこらにあるような大学じゃなくて。
key
"
わたしが受けたのは、シリウス星系大学 CCCCCC このシリウス星系全域から、
一握りのエリートだけが集まる、星系一の、いえ、天の川銀河随一の名門校なんだ。
その大学を受験できるだけで、浮かれてたからかな。
すべっちゃった・・・
key
"
・・・・
key
"
これ、わたしの受験票。
”メアリー・オースティン、18歳、受験番号Cの2265”
合格者の掲示板には、2264番と2266番が並んでた。
あ~あ、がっかり・・・
key
"
・・・ううん。ホントいうと、そんなにがっかりしてないの、我ながら不思議だけど。
それより、なんだか、チカラが抜けちゃって・・・
key
"
そういえばこの18年間、ずぅ~っと勉強ばっかりしてきたもん。
それも、今日でおしまい。
また来年、なんて気持ち、ないし。
key
cls
"
これから、どうしようかな。田舎に帰ろうかな・・・
1. 田舎に帰る
2. 帰らない
select 2 @1 @2
:@@
cls
でも・・・
街で暮らしたいって、ずっと前からの憧れだったし。
それに、負けて帰るみたいで、しゃくじゃない?
[ HIT ANY KEY ];key;cls
:@@
うん、決めた。ぜ~~ったぃ田舎になんか、帰るもんか!
・・・だとすると、やっとかなきゃいけないことが、たくさん、あるなぁ・・・
key
return
;////////////////////////////////////////////////////////////
:街その1
えっと、まずは・・・
<これよりメッセージボックス構造>
・腹ごしらえ、レベル2・ランダム4
・ショッピング、レベル2・ランダム4
・宿を探す、レベル3
脱出:宿を探すのレベル3
レベル3:例
あ、やっと見つけた!
key
・・・・けど・・・。
何これ?ビルの合間の一軒家、それもすっごくクラシック。
古典の教科書に載ってた、「あしたの●ョー」のジムみたい・・・
key
return
;..............................................................................
:不動産屋
cls
あ、なんだ。
中は普通の不動産屋みたい。
%green%店員A%white%「いらっしゃいませ!
良い土地、良い家、良い暮らし。
あなたの街の不動産屋さん、ハッピッピー・ニューロンドン支店へようこそ!
[ HIT ANY KEY ];key;cls
%paple%メイ%white%「・・・は、はあ。あの、わたし、下宿を探してるんですが・・・
%green%店員B%white%「下宿でございまっか!
それやったら、ぜひ、こちらの物件がよろしいかと!
駅に近くて予約もOK!
安い、早い、便利と三拍子揃った”吉野屋システム”と来れば、
こらもう、お買いになったも同然や!
よっ!お客さん、得しはったね~~!
[ HIT ANY KEY ];key;cls
%green%店員C%white%「ちがうわよぉ!
こちらのマンションがサ・イ・コ・ウなの!
お客様のニーズにパーフェクトにおこたえする、
スーパー・イメクラ・マンション!(いかがわしい意味じゃないわよ)
最新テクノロジーを駆使して、お好みのお部屋環境をご提供するわよん!
%green%店員A%white%「こらまちたまえ、B君にC君!この方は私のお客様だぞ!
手出ししないでくれたまえ!
[ HIT ANY KEY ];key;cls
%green%店員B%white%「はっ!そんなこといつ誰が決めたよ?
給料が能力給である以上、この世の中は弱肉強食、先に売ったもん勝ちだぜ!
%green%店員C%white%「・・・ほぉら、この写真をご覧下さい、すばらしいでしょ?
この機械はスーパーイメージマシーンといいまして、お客様の潜在的な・・・
%green%店員A・B%white%「君!抜け駆けはずるいじゃないか!
「てめぇ!抜け駆けしやがって!
key
バグォォ~~ン!!
[ HIT ANY KEY ];key;cls
%green%店員C%white%「ぐ・・・効いたわ、立花兄弟を彷彿とさせるツインシュート・・・
さすがのあたしも、今度ばかりは妥協せざるを得ないわねぇ・・・
%green%店員B%white%「妥協?
%green%店員C%white%「そうよ。
誰から買うか、お客さんに決めてもらうってのはどうかしら?
[ HIT ANY KEY ];key;cls
%green%店員A%white%「なるほど、それはなかなか独創的なアイディアだ。
よろしい、私は乗ろうじゃないか。
%green%店員B%white%「しゃーないな。ねーちゃん、わてにしとき。
わてが一番得させたるさかい。
嘘ちゃうで、ホンマや。絶対やで!
%green%店員C%white%「お客様。そういう訳ですので、誰か一人をお選び下さい・・・
[ HIT ANY KEY ];key;cls
%paple%メイ%white%「・・・(汗)え~と・・・
ひ~ん、どうしよう?
1. 貴族的な店員Aの話を聞く
2. 大阪人の店員Bの話を聞く
3. オカマの店員Cの話を聞く
4. やっぱり帰る
select 4 @1 @2 @3 @4
:@@
:@@
:@@
:@@
<<未完成>>
次のシーンへ
[ HIT ANY KEY ];key;cls
;////////////////////////////////////
:主役の出会い
@?「あの、そこのお嬢さん・・・
私が店を出ようとすると、後ろから声がかかった。
@め「はい・・・?
振り返ると、私と同じくらいの女の子が立っている。
key
flag a 0
flag b 0
flag c 0
:branchsecretgirl
えっと・・・
if a != 0 || b != 0 then goto @nn
1. 女の子を観察する
2. 女の子と話す
3. 女の子を無視して帰る
select 3 view talk kaeru
:@nn
if b=0 goto @1
1. 女の子を観察する
2. 女の子と話す
3. 踊る
select 3 view talk ocharake
:@@
1. もっとよく女の子を観察する
2. 女の子と話す
3. 踊る
select 3 view talk ocharake
:ocharake
え?
どうして踊らなくちゃいけないの?
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:kaeru
え?帰っちゃうの?
いくら知らない人でも、話しかけられて無視しちゃいけないわ・・・
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:talk
b++;if a>3 goto talking
if b = 1 @1
もう少し、様子を見ましょう・・・
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:@@
待って。
知らない人と無暗に話しちゃいけないって、
お母さんが言ってたじゃない・・・
この子をもう少しよく見てからにしましょう。
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:view
a++;switch a 1 @1 2 @2 3 @3
じろじろ見ると失礼かも・・・
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:@@
私と同じか少し年下ぐらいの女の子みたい。
小柄でほっそりしてるけど、弱々しい感じはしない。
小さな頭には、目鼻立ちのいい顔がついてて、大きなブラウンの瞳が印象的ね。
@?「?」
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:@@
かわいい女の子よね・・・え?怪しい意味なしでよ、もちろん!
私よりかわいいかって?
・・・うん、そうだと思う。
@「あの・・・」
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
:@@
うん、悪い人じゃないみたい。
それにあんまりじろじろ見るのも、失礼よね。
そろそろ話しかけてみよっか?
[ HIT ANY KEY ];key;cls
goto branchsecretgirl
;
:talking
ここまでしか作ってません!
(この後の部分、消えました!)
(パスワード:10310)
[ HIT ANY KEY ];key;cls
goto opening
:omake
key
cls
text 0 9
△▼□□□□□□□□□□□□□□□□□□□□▲▽
△▼ ▲▽
△▼ 銀河迷探偵物語 ▲▽
△▼~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~▲▽
△▼ FILE1 ニューベイカー街の迷探偵 ▲▽
△▼ ▲▽
△▼□□□□□□□□□□□□□□□□□□□□▲▽
text 8 25
おまけコーナーです。
この「銀河迷探偵物語 File 1」の各種設定を掲載しました。
まあ、何を考えていたのか、分かっていただければ幸いです。
:branchomake
どうしますか?
1. キャラクター設定
2. 舞台設定
3. その他
4. メインメニューに戻る
select 4 @1 @2 @3 @4
:@@
《登場人物》
・ベス(シャーロッテ・エリザベス・ホームズ)
銀河を股に掛ける(?)迷探偵。銀河暦192年11月8日生まれ。O型。
かの有名なシャーロック・ホームズの遠い子孫・・・かどうかは定かでない。しかし、常人離れした優れた直感力と持ち前の強運で、今までいくつもの難事件を解決している。もっとも、依頼主にとっては、捜査途中で被る被害の方が深刻な場合が多いが。
投げやりな性格。小さいことにこだわらない。ドライな性格だが、悪い奴にはお仕置きしたくなる。男に無頓着。男の子の恋心なんぞ知ったこっちゃない。
[ HIT ANY KEY ];key
・メイ(メアリー・オースティン)
ベスの助手兼友人をしている。実は非常に頭脳明晰で、星域でもトップクラスの進学校に通っていた。思いこみが激しい。自分では意識しない内に、トラブルを巻き起こすタイプ。そんでもって本人は痛くもかゆくもないのに、周りの被害が尋常でないタイプ。
名門大学受験日にひょんな事からベスと知り合い、以来行動をともにする。ベスは本当にシャーロック・ホームズの子孫で、推理の達人だと思いこんでいる。
[ HIT ANY KEY ];key
・アーク(アーク・マッキントッシュ)
ベスの古くからの友人。ベスの直感能力を高く評価しており、ベスへの調査依頼の仲介人のような立場である。
好青年。頭はいいが、性根は不真面目な奴。他人が困っていても「面白い事件」だと考えるタイプ。
[ HIT ANY KEY ];key
・トレード警部
ブリタニカ星警視庁の警部。なぜかベスたちと同じ事件の担当になることが多い。
ベス曰く、「真面目でそこそこやり手だけど、セオリーどおりでないと詰まってしまうタイプ」だそうな。
・ミリガンおばさん
ベスとメイが暮らすアパートの管理人。気のいいおばあさん。
[ HIT ANY KEY ];key
goto branchomake
:@@
《舞台設定》
・惑星ブリタニカ
地球人の植民惑星の一つ。天の川銀河シリウス星系所属。文明レベルは5。
総人口35億人で、人口の99%がシリウス人。宇宙独立時代を経て、現在では19世紀末のイギリスを思わせる社会を形成している。立憲君主制。
[ HIT ANY KEY ];key
・惑星ランツ
地球人の植民惑星の一つ。天の川銀河シリウス星系所属。文明レベル5。
総人口40億。人口の80%が地球、特にかつてドイツと呼ばれた地域の人々で、残りはランツの原住民。帝制。「地球人の優越性」を主張し、民族純化政策を推進している。軍事力も高く、現在のシリウス情勢のガン細胞と考えられている。
[ HIT ANY KEY ];key
・惑星ブランドルⅢ
改造途中の植民惑星。シリウス星系ブリタニカ方面。
惑星上にはごくわずかな居住者しか居らず、まだ宇宙ステーションでの居住が中心。これを含む人口は1万人。シリウス人のみ。
[ HIT ANY KEY ];key
・ニューベイカーストリート221番地B
ベスの事務所にふさわしい場所として、メイが探し当てたアパート。月々の家賃は7万クレジット。宿主はミリガン夫人。
[ HIT ANY KEY ];key
goto branchomake
:@@
《その他の設定》
・宇宙船マイクロフト号
ベスが中古宇宙船屋から格安で奪い取った万能小型スペースクルーザー。空間跳躍エンジン、中間子ブラスター砲装備。通常空間での最大速度は相対評価で5(かなり高速)
・文明泥棒
各惑星の治安維持団体が総じて頭を悩ませている、強力な情報ハッカーの俗称。
時としてその惑星の最重要データを破壊し、文明レベルを退化させる場合もあるため、この名で呼ばれる。
[ HIT ANY KEY ];key
goto branchomake
:@@
goto opening